PRBOdbConnect<-function(driver="MySQL", dsn="PRBOdb", dbname="PRBOdb", ODBC=TRUE, ...) {
    if (ODBC==TRUE) {
        PRBOdb.con<-odbcConnect(dsn, ...)
    } else {
 #       dbname<-ifelse(substr(group,1,5)=="digir","digir",dbname)
 #       MySQL.driver<-dbDriver(driver)
 #       PRBOdb.con<-dbConnect(MySQL.driver, group=group, dbname=dbname, ...)
    }
    return(PRBOdb.con)
}

PRBOdbClose<-function(con, ODBC=TRUE) {
    if (ODBC==TRUE) {
        odbcClose(con)
    } else {
  #      dbDisconnect(con)
    }
}

#BuildQuery<-function(select,from,where) {
#    }
